<?xml version="1.0"?>
<Denemo>
  <merge>
    <title>A Denemo Keymap</title>
    <author>AT, JRR, RTS</author>
    <map>
      <row>
        <action>MetronomeMarking</action>
        <scheme> ;; ;;;;;;;;;;;;
(let ((bpm 60))
  (set! bpm (d-GetUserInput "Metronome Setting"  "Give Beats per Minute" "60"))
  (d-DirectivePut-chord-prefix "MM"  (string-append "\\override Score.MetronomeMark #'padding = #3
  \\tempo 4 = " bpm))
  (d-DirectivePut-chord-override "MM" (logior DENEMO_OVERRIDE_TEMPO DENEMO_OVERRIDE_STEP))
  (d-DirectivePut-chord-midibytes "MM" bpm)
  (d-DirectivePut-chord-display "MM" (string-append "MM" bpm)))
</scheme>
        <label>Add Metronome Marking to Chord</label>
        <tooltip>Adds a metronome marking to chord. Edit the attached LilyPond for the value and position.</tooltip>
      </row>
    </map>
  </merge>
</Denemo>
